EnigmA Amiga Run 1997 February/EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso/progs/thor/examples/confdata.br

Text File | 1996-11-10 | 7KB | 126 lines

/*  ConfData.br
 *
 *  Shows all data about a conference.
 *
 *  Script by: Eivind Nordseth, Ultima Thule Software.
 */

/*    trace results */

    if ~show('p', 'BBSREAD') then do
        address command
            "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
            "WaitForPort BBSREAD"
    end

    address "BBSREAD"

    parse arg argument

    if(argument = '') then
    do
        say '$VER: ConfData.br 4.1 (08.08.95)'
        say 'Template: BBSNAME/A,CONFNAME/A'
        exit
    end

    /* Bit numbers for conference data */

    CDB_MEMBER_OF           = 0   /* Member of this conference. */
    CDB_MAIL                = 1   /* Private mail conference. */
    CDB_READ_ONLY           = 2   /* Read only conference. */
    CDB_COMPULSORY          = 3   /* Compulsory conference. */
    CDB_FILE_INFO           = 4   /* File info conference. */
    CDB_USER_INFO           = 5   /* User info conference. */
    CDB_PRIVATE_ALLOWED     = 6   /* Private messages allowed. */
    CDB_ENTER_ONLY_TO_ALL   = 7   /* Enter only allowed to ALL. */
    CDB_ALIAS               = 8   /* Alias conference. */
    CDB_BBS_KEEPMSG         = 9   /* Use bbs KeepMsg. */
    CDB_BBS_KEEPTIME        = 10  /* Use bbs KeepTime. */
    CDB_IGNORE_KEEPMSG      = 11  /* Don't count messages when packing conference. */
    CDB_IGNORE_KEEPTIME     = 12  /* Don't check time when packing conference. */
    CDB_NO_XPK_METHOD       = 13  /* Don't use any xpk method. */
    CDB_NO_SIGNATURE        = 14  /* Don't use signatures. */
    CDB_NOT_ON_BBS          = 15  /* This conference is not on the bbs. */
    CDB_NO_TAGS             = 16  /* Don't use tags. */
    CDB_REPLY_ONLY_TO_ALL   = 17  /* Replies should be adresses to all. */
    CDB_NO_LINEWRAP_DISPLAY = 18  /* Don't line wrap messages in this conference when they are displayed. */
    CDB_FILE_SIGNATURE      = 19  /* The Signature field contains the path and name of a file containing the signature. */
    CDB_AUTO_XPK_PACK       = 20  /* Automatically xpk pack new messages when they are written to this conference. NB: A xpk method must have been defined. */
    CDB_NO_AUTO_XPK_PACK    = 21  /* No automatically xpk packing in this conference. */
    CDB_MARK_OWN_MSGS       = 22  /* Also mark messages from user when adding messages. */
    CDB_COMMAND_SIGNATURE   = 23  /* The signature field contains the path and name of a command. When the command is executed should the signature contents be written to stdout. The template for the command is expected to be BBSNAME/K,CONFNAME/K. */
    CDB_REFLOW_QUOTING      = 24  /* Reflow quoting should be on as default when answering messages. This flag should only be considered when cd_QuoteType is != QT_USE_SUPER. */
    CDB_ALWAYS_REPLY_STR    = 25  /* Use reply string on all replies. This flag should only be considered when cd_ReplyString is non NULL. */
    CDB_NO_REPLY_STR        = 26  /* Don't use reply strings in this conf. Overrides the setting of cd_ReplyString. */
    CDB_BBS_REPLY_STR       = 27  /* Use bbs reply string settings. Overrides all other conference reply string settings. */
    CDB_NO_CONF_ENTER_SCR   = 28  /* Don't use a conference enter script in this conference. */
    CDB_NO_CONF_LEAVE_SCR   = 29  /* Don't use a conference leave script on this conference. */

    GETCONFDATA argument stem CONFDATA
    if(rc ~= 0) then
    do
        say BBSREAD.LASTERROR
        exit
    end

    say 'Name:       ' CONFDATA.NAME
    say 'KeepMsg:    ' CONFDATA.KEEPMSG
    say 'KeepTime:   ' CONFDATA.KEEPTIME
    say 'Signature:  ' CONFDATA.SIGNATURE
    say 'Alias:      ' CONFDATA.ALIAS
    say 'BBSConfNr:  ' CONFDATA.BBSCONFNR
    say 'LineLength: ' CONFDATA.LINELENGTH
    say 'CharSet:    ' CONFDATA.CHARSET
    say 'XPKMethod:  ' CONFDATA.XPKMETHOD
    say 'TagFile:    ' CONFDATA.TAGFILE
    say 'EMailAddr:  ' CONFDATA.EMAILADDR
    say 'ReplyString:' CONFDATA.REPLYSTRING
    say 'QuoteType:  ' CONFDATA.QUOTETYPE
    say 'QuoteChars: ' CONFDATA.QUOTECHARS
    say 'EnterScript:' CONFDATA.ENTERSCRIPT
    say 'LeaveScript:' CONFDATA.LEAVESCRIPT
    say 'ConfNetType:' CONFDATA.CONFNETTYPE

    cf = ''
    if bittst(CONFDATA.FLAGS,CDB_MEMBER_OF)           then cf = cf || 'MEMBER_OF '
    if bittst(CONFDATA.FLAGS,CDB_MAIL)                then cf = cf || 'MAIL '
    if bittst(CONFDATA.FLAGS,CDB_READ_ONLY)           then cf = cf || 'READ_ONLY '
    if bittst(CONFDATA.FLAGS,CDB_COMPULSORY)          then cf = cf || 'COMPULSORY '
    if bittst(CONFDATA.FLAGS,CDB_FILE_INFO)           then cf = cf || 'FILE_INFO '
    if bittst(CONFDATA.FLAGS,CDB_USER_INFO)           then cf = cf || 'USER_INFO '
    if bittst(CONFDATA.FLAGS,CDB_PRIVATE_ALLOWED)     then cf = cf || 'PRIVATE_ALLOWED '
    if bittst(CONFDATA.FLAGS,CDB_ENTER_ONLY_TO_ALL)   then cf = cf || 'ENTER_ONLY_TO_ALL '
    if bittst(CONFDATA.FLAGS,CDB_ALIAS)               then cf = cf || 'ALIAS '
    if bittst(CONFDATA.FLAGS,CDB_BBS_KEEPMSG)         then cf = cf || 'BBS_KEEPMSG '
    if bittst(CONFDATA.FLAGS,CDB_BBS_KEEPTIME)        then cf = cf || 'BBS_KEEPTIME '
    if bittst(CONFDATA.FLAGS,CDB_IGNORE_KEEPMSG)      then cf = cf || 'IGNORE_KEEPMSG '
    if bittst(CONFDATA.FLAGS,CDB_IGNORE_KEEPTIME)     then cf = cf || 'IGNORE_KEEPTIME '
    if bittst(CONFDATA.FLAGS,CDB_NO_XPK_METHOD)       then cf = cf || 'NO_XPK_METHOD '
    if bittst(CONFDATA.FLAGS,CDB_NO_SIGNATURE)        then cf = cf || 'NO_SIGNATURE '
    if bittst(CONFDATA.FLAGS,CDB_NOT_ON_BBS)          then cf = cf || 'NOT_ON_BBS '
    if bittst(CONFDATA.FLAGS,CDB_NO_TAGS)             then cf = cf || 'NO_TAGS '
    if bittst(CONFDATA.FLAGS,CDB_REPLY_ONLY_TO_ALL)   then cf = cf || 'REPLY_ONLY_TO_ALL '
    if bittst(CONFDATA.FLAGS,CDB_NO_LINEWRAP_DISPLAY) then cf = cf || 'NO_LINEWRAP_DISPLAY '
    if bittst(CONFDATA.FLAGS,CDB_FILE_SIGNATURE)      then cf = cf || 'FILE_SIGNATURE '
    if bittst(CONFDATA.FLAGS,CDB_AUTO_XPK_PACK)       then cf = cf || 'AUTO_XPK_PACK '
    if bittst(CONFDATA.FLAGS,CDB_NO_AUTO_XPK_PACK)    then cf = cf || 'NO_AUTO_XPK_PACK '
    if bittst(CONFDATA.FLAGS,CDB_MARK_OWN_MSGS)       then cf = cf || 'MARK_OWN_MSGS '
    if bittst(CONFDATA.FLAGS,CDB_COMMAND_SIGNATURE)   then cf = cf || 'COMMAND_SIGNATURE '
    if bittst(CONFDATA.FLAGS,CDB_REFLOW_QUOTING)      then cf = cf || 'REFLOW_QUOTING '
    if bittst(CONFDATA.FLAGS,CDB_ALWAYS_REPLY_STR)    then cf = cf || 'ALWAYS_REPLY_STR '
    if bittst(CONFDATA.FLAGS,CDB_NO_REPLY_STR)        then cf = cf || 'NO_REPLY_STR '
    if bittst(CONFDATA.FLAGS,CDB_BBS_REPLY_STR)       then cf = cf || 'BBS_REPLY_STR '
    if bittst(CONFDATA.FLAGS,CDB_NO_CONF_ENTER_SCR)   then cf = cf || 'NO_CONF_ENTER_SCR '
    if bittst(CONFDATA.FLAGS,CDB_NO_CONF_LEAVE_SCR)   then cf = cf || 'NO_CONF_LEAVE_SCR '

    do w=4 to words(cf) by 4
        cf    = subword(cf, 1, w) || '0a'x || '             ' || subword(cf, w + 1)
    end
    say 'Flags:      ' cf
    say 'FirstMsg:   ' CONFDATA.FIRSTMSG
    say 'LastMsg:    ' CONFDATA.LASTMSG
    say 'NumMessages:' CONFDATA.NUMMESSAGES
    say 'MsgMarked:  ' CONFDATA.MSGMARKED
    say 'Marked2User:' CONFDATA.MARKED2USER